home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / eyes / audreye4.wwModel / controls.nib / data.nib (.txt) < prev   
Encoding:
NeXT TypedStream Data  |  1995-03-22  |  30.7 KB  |  219 lines
  1. typedstream
  2. IBObjectData
  3. Object
  4. CustomObject
  5. WWTCLInterp
  6. WWTextField
  7.     TextField
  8. Control
  9.     Responder
  10. WWTextFieldCell
  11. TextFieldCell
  12. ActionCell
  13.     Helvetica
  14.  set text(line1) {%s}; updateView
  15. text(line1)
  16.  set text(line2) {%s}; updateView
  17. text(line2)
  18. WWColorWell
  19. NXColorWell
  20. +set text(line1Color) {%f %f %f}; updateView
  21. text(line1Color)
  22. WWThumbWheel
  23. PAThumbWheel
  24. WWThumbWheelCell
  25. PAThumbWheelCell
  26. set text(yT) %f; updateView
  27. text(yT)
  28. set text(zT) %f; updateView
  29. text(zT)
  30. set  text(xT) %f; updateView
  31. text(xT)
  32. set text(xT) %f; updateView
  33.     translate
  34. set text(size) %f; updateView
  35. text(size)
  36. rotate
  37. set text(yR) %f; updateView
  38. text(yR)
  39. set text(zR) %f; updateView
  40. text(zR)
  41. set text(xR) %f; updateView
  42. text(xR)
  43. Matrix
  44. [17@]
  45. /set audreyeII(color) {%f %f %f}; synchWithScene
  46. audreyeII(color)
  47. *set audreyeII(thetaMax) %f; synchWithScene
  48. audreyeII(thetaMax)
  49. -360.0
  50. thetaMax
  51. *set eyeBall(leftRightR) %f; synchWithScene
  52. eyeBall(leftRightR)
  53. 'set eyeBall(upDownR) %f; synchWithScene
  54. eyeBall(upDownR)
  55. WWSlider
  56. Slider
  57. WWSliderCell
  58. SliderCell
  59. dddf@d@
  60. NXImage
  61. NXCachedImageRep
  62. NXImageRep
  63. iisssssS
  64. iiiiiiS
  65. [3984c]
  66. (set audreyeII(xScale) %f; synchWithScene
  67. audreyeII(xScale)
  68. -10.00
  69. (set audreyeII(yScale) %f; synchWithScene
  70. audreyeII(yScale)
  71. (set audreyeII(zScale) %f; synchWithScene
  72. audreyeII(zScale)
  73. =set audreyeII(volumePreservingScaleFactor) %f; synchWithScene
  74. &audreyeII(volumePreservingScaleFactor)
  75. [1328c]
  76. scale
  77. #set blink(downU) %f; synchWithScene
  78. blink(downU)
  79. downU
  80. !set blink(upU) %f; synchWithScene
  81. blink(upU)
  82. &set blink(thetaMax) %f; synchWithScene
  83. blink(thetaMax)
  84. (set eyeBall(irisSize) %f; synchWithScene
  85. eyeBall(irisSize)
  86. irisSize
  87. )set eyeBall(bloodShot) %f; synchWithScene
  88. eyeBall(bloodShot)
  89.     bloodShot
  90. )set eyeBall(pupilSize) %f; synchWithScene
  91. eyeBall(pupilSize)
  92.     pupilSize
  93. @:@iiii
  94. ButtonCell
  95. Radio
  96. control_stop
  97. control_stopH
  98. control_play
  99. control_playH
  100. ff@@#::s
  101. NXradio
  102. NXradioH
  103. -set sideToSide(howManySeconds) %f; updateView
  104. sideToSide(howManySeconds)
  105. sideToSide
  106. )set dilate(howManySeconds) %f; updateView
  107. dilate(howManySeconds)
  108. dilate
  109. (set blink(howManySeconds) %f; updateView
  110. blink(howManySeconds)
  111. blink
  112. 1set eyeBall(irisColor) {%f %f %f}; synchWithScene
  113. eyeBall(irisColor)
  114.     irisColor
  115. set yT %f; updateView
  116. set zT %f; updateView
  117. set  xT %f; updateView
  118. set xT %f; updateView
  119. set yR %f; updateView
  120. set zR %f; updateView
  121. set xR %f; updateView
  122.     constrict
  123. ,set constrict(howManySeconds) %f; updateView
  124. constrict(howManySeconds)
  125. WWButton
  126. Button
  127. WWButtonCell
  128. Helvetica-Bold$
  129. "set goCurrentMinMaxCurrent(min) %f
  130. goCurrentMinMaxCurrent(min)
  131. 'set goCurrentMinMaxCurrent(duration) %f
  132.  goCurrentMinMaxCurrent(duration)
  133. duration
  134. "set goCurrentMinMaxCurrent(max) %f
  135. goCurrentMinMaxCurrent(max)
  136. weight
  137. (set goCurrentMinMaxCurrent(agentName) %s
  138. !goCurrentMinMaxCurrent(agentName)
  139.     agentName
  140.     openClose
  141. kset goCurrentMinMaxCurrent(varName) eyeBall(openCloseR);
  142. set goCurrentMinMaxCurrent(agentName) openCloseR;
  143.     leftRight
  144. kset goCurrentMinMaxCurrent(varName) eyeBall(leftRightR);
  145. set goCurrentMinMaxCurrent(agentName) leftRightR;
  146. upDown
  147. eset goCurrentMinMaxCurrent(varName) eyeBall(upDownR);
  148. set goCurrentMinMaxCurrent(agentName) upDownR;
  149. tset goCurrentMinMaxCurrent(varName) eyeBall(openCloseR);
  150. set goCurrentMinMaxCurrent(agentName) eyeBall(openCloseR);
  151. &set goCurrentMinMaxCurrent(varName) %s
  152. goCurrentMinMaxCurrent(varName)
  153. varName
  154. #set go2CurrentMinMaxCurrent(min) %f
  155. go2CurrentMinMaxCurrent(min)
  156. (set go2CurrentMinMaxCurrent(duration) %f
  157. !go2CurrentMinMaxCurrent(duration)
  158. #set go2CurrentMinMaxCurrent(max) %f
  159. go2CurrentMinMaxCurrent(max)
  160. 'set go2CurrentMinMaxCurrent(varName) %s
  161.  go2CurrentMinMaxCurrent(varName)
  162. mset go2CurrentMinMaxCurrent(varName) eyeBall(openCloseR);
  163. set go2CurrentMinMaxCurrent(agentName) openCloseR;
  164. mset go2CurrentMinMaxCurrent(varName) eyeBall(leftRightR);
  165. set go2CurrentMinMaxCurrent(agentName) leftRightR;
  166. gset go2CurrentMinMaxCurrent(varName) eyeBall(upDownR);
  167. set go2CurrentMinMaxCurrent(agentName) upDownR;
  168. )set go2CurrentMinMaxCurrent(agentName) %s
  169. "go2CurrentMinMaxCurrent(agentName)
  170. WindowTemplate
  171. iiii***@s@
  172. set rate reusable behavior
  173. Panel
  174.     WWTTTimer
  175. @:diciffffc
  176. dilateMotorProgram $dilate(u) $dilate(pupilMin) $dilate(extent); 
  177. set dilate(u) [expr $dilate(u) + ($dilate(uIncr) * [synchWithScene])];  
  178.     preDilate
  179. postDilate $dilate(pupilMax)
  180. $dilate(u) <= 1
  181. blinkMotorProgram $blink(u) $blink(downU) $blink(upU) $blink(initialTheta) $blink(thetaMax); 
  182. set blink(u) [expr $blink(u) + ($blink(uIncr) * [synchWithScene])];  
  183. preBlink
  184. postBlink $blink(initialTheta)
  185. $blink(u) <= 1
  186. Status Text stuff
  187. Audrey EyeBall controls
  188. adaptive rate reusable behavior
  189. _sideToSideMotorProgram $sideToSide(varName) $sideToSide(u) $sideToSide(uA) $sideToSide(uB) $sideToSide(initial) $sideToSide(min) $sideToSide(max) $sideToSide(agentName); 
  190. set sideToSide(uIncr) [expr {1.0/(($sideToSide(howManySeconds) * $scene(ticksPerSecond)) - 1)}];
  191. set sideToSide(u) [expr $sideToSide(u) + ($sideToSide(uIncr) * [synchWithScene])]
  192. preSideToSide
  193. #postSideToSide $sideToSide(initial)
  194. $sideToSide(u) < 1
  195. constrictMotorProgram $constrict(u) $constrict(pupilMax) $constrict(extent); 
  196. set constrict(u) [expr $constrict(u) + ($constrict(uIncr) * [synchWithScene])];  
  197. preConstrict
  198. postConstrict $dilate(pupilMin)
  199. $constrict(u) <= 1
  200. Panel1
  201. controls
  202. File's Owner
  203. Panel2
  204. [27@]
  205. IBOutletConnector
  206. IBConnector
  207. controlPanel
  208. IBControlConnector
  209. evalUsingColor:
  210. evalUsingFloatValue:
  211. stopButton
  212. startButton
  213. interp
  214. stop:
  215. start:
  216. accessoryPanel0
  217. accessoryPanel1
  218. accessoryPanel2
  219.